home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / gfx / misc / gnuplot-3.7src.lha / gnuplot-3.7src / gnuplot-3.7.lha / gnuplot-3.7 / os2 / dialogs.c next >
C/C++ Source or Header  |  1998-04-15  |  17KB  |  449 lines
  1. #ifdef INCRCSDATA
  2. static char RCSid[]="$Id: dialogs.c,v 1.9 1998/03/22 22:34:20 drd Exp $" ;
  3. #endif
  4.  
  5. /****************************************************************************
  6.  
  7.     PROGRAM: gnupmdrv
  8.     
  9.         Outboard PM driver for GNUPLOT 3.3
  10.  
  11.     MODULE:  dialogs.c  Dialog procedures for gnupmdrv 
  12.         
  13. ****************************************************************************/
  14.  
  15. /* PM driver for GNUPLOT */
  16.  
  17. /*[
  18.  * Copyright 1992, 1993, 1998   Roger Fearick
  19.  *
  20.  * Permission to use, copy, and distribute this software and its
  21.  * documentation for any purpose with or without fee is hereby granted,
  22.  * provided that the above copyright notice appear in all copies and
  23.  * that both that copyright notice and this permission notice appear
  24.  * in supporting documentation.
  25.  *
  26.  * Permission to modify the software is granted, but not the right to
  27.  * distribute the complete modified source code.  Modifications are to
  28.  * be distributed as patches to the released version.  Permission to
  29.  * distribute binaries produced by compiling modified sources is granted,
  30.  * provided you
  31.  *   1. distribute the corresponding source modifications from the
  32.  *    released version in the form of a patch file along with the binaries,
  33.  *   2. add special version identification to distinguish your version
  34.  *    in addition to the base release version number,
  35.  *   3. provide your name and address as the primary contact for the
  36.  *    support of your modified version, and
  37.  *   4. retain our contact information in regard to use of the base
  38.  *    software.
  39.  * Permission to distribute the released version of the source code along
  40.  * with corresponding source modifications in the form of a patch file is
  41.  * granted with same provisions 2 through 4 for binary distributions.
  42.  *
  43.  * This software is provided "as is" without express or implied warranty
  44.  * to the extent permitted by applicable law.
  45. ]*/
  46.  
  47. /*
  48.  * AUTHOR
  49.  * 
  50.  *   Gnuplot driver for OS/2:  Roger Fearick
  51.  * 
  52.  * Send your comments or suggestions to 
  53.  *  info-gnuplot@dartmouth.edu.
  54.  * This is a mailing list; to join it send a note to 
  55.  *  majordomo@dartmouth.edu.  
  56.  * Send bug reports to
  57.  *  bug-gnuplot@dartmouth.edu.
  58. **/
  59.  
  60. #define INCL_PM
  61. #define INCL_WIN
  62. #define INCL_DEV
  63. #define INCL_SPL
  64. #define INCL_SPLDOSPRINT
  65. #define INCL_WINDIALOGS
  66. #define INCL_WINBUTTONS
  67. #define INCL_WINSYS
  68. #define INCL_WINFRAMEMGR
  69. #define INCL_WINPOINTERS
  70. #define INCL_WINTRACKRECT
  71. #define INCL_WINENTRYFIELDS
  72. #define INCL_WINWINDOWMGR
  73. #include <os2.h>
  74. #include <math.h>
  75. #include <stdio.h>
  76. #include <stdlib.h>
  77. #include <string.h>
  78. #include "gnupmdrv.h"
  79.  
  80. /* struct for printer capabilities */
  81.  
  82. static struct { 
  83.     long    lTech ;     // printer technology
  84.     long    lVer ;      // driver version
  85.     long    lWidth ;    // page width in pels
  86.     long    lHeight ;   // page height in pels
  87.     long    lWChars ;   // page width in chars    
  88.     long    lHChars ;   // page height in chars    
  89.     long    lHorRes ;   // horizontal resolution pels / metre
  90.     long    lVertRes ;  // vertical resolution pels / metre
  91.     } prCaps ;
  92.  
  93. ULONG GetPrinters( PPRQINFO3* pprq, ULONG *pcTot  ) ;
  94.  
  95.  
  96. MRESULT EXPENTRY QPrintDlgProc ( HWND hwnd, ULONG usMsg, MPARAM mp1, MPARAM mp2 )
  97. /*
  98. **  Query print area and printer setup
  99. */
  100.     {
  101.     static PQPRINT pqp = NULL ;
  102.     static SWP     swp ;    
  103.     static RECTL   rectlDef ;
  104.     TRACKINFO   ti ;
  105.     RECTL       rectlBox ;
  106.     HDC         hdc ;
  107.     ULONG       ulStyle ;
  108.     char        *psz ;
  109.  
  110.     switch ( usMsg ) {
  111.  
  112.         case WM_INITDLG :
  113.                                    
  114.             pqp = (PQPRINT) PVOIDFROMMP( mp2 ) ;
  115.             if( pqp->caps & QP_CAPS_FILE ) {
  116.                 ulStyle = WinQueryWindowULong( WinWindowFromID( hwnd, IDD_PRINTQNAME ),
  117.                                                QWL_STYLE ) ;
  118.                 WinSetWindowULong( WinWindowFromID( hwnd, IDD_PRINTQNAME ),
  119.                                    QWL_STYLE, ulStyle ^ DT_HALFTONE  ) ;
  120.                 }
  121.             else {
  122.                 WinSendMsg( WinWindowFromID( hwnd, IDD_QPRNAME ),
  123.                             EM_SETREADONLY, (MPARAM)TRUE, 0L ) ;
  124.                 }
  125.             WinQueryWindowRect( WinWindowFromID( hwnd, IDD_QPRBOX ),
  126.                                 &rectlDef ) ;
  127.              
  128.         case WM_USER_SET_DATA :
  129.  
  130.             psz = *pqp->piPrinter->pszComment ? pqp->piPrinter->pszComment :
  131.                                         pqp->piPrinter->pszName ;
  132.             WinSetDlgItemText( hwnd, IDD_PRINTNAME, psz ) ;
  133.             WinSetDlgItemFloatF( hwnd, IDD_QPRXSIZE, 1, pqp->xsize ) ;
  134.             WinSetDlgItemFloatF( hwnd, IDD_QPRYSIZE, 1, pqp->ysize ) ;
  135.             WinSetDlgItemFloat( hwnd, IDD_QPRXFRAC, pqp->xfrac ) ;
  136.             WinSetDlgItemFloat( hwnd, IDD_QPRYFRAC, pqp->yfrac ) ;
  137.             WinQueryWindowPos( WinWindowFromID( hwnd, IDD_QPRBOX ),
  138.                                &swp ) ;
  139.             {
  140.             int y = rectlDef.yTop ;
  141.             rectlBox = rectlDef ;
  142.             if( pqp->xsize < pqp->ysize )                    
  143.                 rectlBox.xRight = rectlDef.yTop * pqp->xsize/pqp->ysize ;
  144.             else {
  145.                 int x = rectlDef.yTop * pqp->ysize/pqp->xsize ;
  146.                 rectlBox.yTop = x ;
  147.                 rectlBox.xRight = y ;
  148.                 }
  149.             }
  150.             WinSetWindowPos( WinWindowFromID( hwnd, IDD_QPRBOX ),
  151.                              NULLHANDLE, 0, 0, (short) rectlBox.xRight, (short)rectlBox.yTop, SWP_SIZE ) ;
  152.             {
  153.             double ratio = 1.560 ;
  154.             double xs = rectlBox.xRight - rectlBox.xLeft ;
  155.             double ys = rectlBox.yTop - rectlBox.yBottom ;
  156.             if( ys > xs/ratio ) { /* reduce ys to fit */
  157.                  rectlBox.yTop = rectlBox.yBottom + (int)(xs/ratio) ; 
  158.                  }
  159.             else if( ys < xs/ratio ) { /* reduce xs to fit */
  160.                  rectlBox.xRight = rectlBox.xLeft + (int)(ys*ratio) ;
  161.                  }
  162.             }
  163.             rectlBox.xRight *= pqp->xfrac ;
  164.             rectlBox.yTop *= pqp->yfrac ;
  165.             WinSetWindowPos( WinWindowFromID( hwnd, IDD_QPRFRAME ),
  166.                              NULLHANDLE, 
  167.                              swp.x, swp.y, //+(short)(swp.cy*(1.0-pqp->yfrac)),
  168.                              (short)rectlBox.xRight, (short)rectlBox.yTop, SWP_SIZE|SWP_MOVE ) ;
  169.             break ;
  170.             
  171.         case WM_COMMAND :
  172.  
  173.             switch ( SHORT1FROMMP(mp1) ) {
  174.  
  175.                 case DID_OK:
  176.                     WinQueryDlgItemFloat( hwnd, IDD_QPRXFRAC, &pqp->xfrac ) ;
  177.                     WinQueryDlgItemFloat( hwnd, IDD_QPRYFRAC, &pqp->yfrac ) ;
  178.  
  179.                     if( pqp->caps & QP_CAPS_FILE ) {
  180.                         WinQueryDlgItemText( hwnd, IDD_QPRNAME, 32, pqp->szFilename ) ;
  181.                         }
  182.                     break ;
  183.  
  184.                 case IDD_QPRSETPR:   /* printer setup */
  185.                     if( SetPrinterMode( hwnd, pqp ) == 1 ) {
  186.                         if( (hdc = OpenPrinterDC( WinQueryAnchorBlock( hwnd ), 
  187.                                                   pqp, 
  188.                                                   OD_INFO, 
  189.                                                   NULL )) != DEV_ERROR ) {
  190.                             DevQueryCaps( hdc, CAPS_TECHNOLOGY, (long)sizeof(prCaps)/sizeof(long), (PLONG)&prCaps ) ;
  191.                             DevCloseDC( hdc ) ;
  192.                             pqp->xsize = (float)100.0* (float) prCaps.lWidth / (float) prCaps.lHorRes ; // in cm
  193.                             pqp->ysize = (float)100.0* (float) prCaps.lHeight / (float) prCaps.lVertRes ; // in cm
  194.                             WinSendMsg( hwnd, WM_USER_SET_DATA, 0L, 0L ) ;
  195.                             }
  196.                         }
  197.                     return 0L ;
  198.  
  199.                 case IDD_QPRTRACK :     /* track plot area */
  200.                     WinQueryWindowRect( WinWindowFromID( hwnd, IDD_QPRBOX ),
  201.                                         &rectlBox ) ;
  202.                     {
  203.                     double ratio = 1.560 ;
  204.                     double xs = rectlBox.xRight - rectlBox.xLeft ;
  205.                     double ys = rectlBox.yTop - rectlBox.yBottom ;
  206.                     if( ys > xs/ratio ) { /* reduce ys to fit */
  207.                         rectlBox.yTop = rectlBox.yBottom + (int)(xs/ratio) ; 
  208.                         }
  209.                     else if( ys < xs/ratio ) { /* reduce xs to fit */
  210.                         rectlBox.xRight = rectlBox.xLeft + (int)(ys*ratio) ;
  211.                         }
  212.                     }
  213.                     ti.cxBorder = ti.cyBorder = 2 ;
  214.                     ti.cxGrid = ti.cyGrid = 0 ;
  215.                     ti.cxKeyboard = ti.cyKeyboard = 2 ;
  216.                     ti.ptlMinTrackSize.x = ti.ptlMinTrackSize.y = 2 ;
  217.                     ti.rclBoundary = rectlBox ;
  218.                     ti.ptlMaxTrackSize.x = rectlBox.xRight ;
  219.                     ti.ptlMaxTrackSize.y = rectlBox.yTop ;
  220.                     ti.rclTrack.xRight = pqp->xfrac * rectlBox.xRight ;
  221.                     ti.rclTrack.yTop = pqp->yfrac*rectlBox.yTop ;
  222.                     ti.rclTrack.xLeft = 0 ;
  223.                     ti.rclTrack.yBottom = 0 ;//(1.0-pqp->yfrac) * rectlBox.yTop ;
  224.                     ti.fs = TF_RIGHT|TF_TOP|TF_STANDARD|TF_SETPOINTERPOS|TF_ALLINBOUNDARY ;
  225.                     WinSetPointer( HWND_DESKTOP, 
  226.                                    WinQuerySysPointer( HWND_DESKTOP, SPTR_SIZENWSE, FALSE ) ) ;
  227.                     WinTrackRect( WinWindowFromID( hwnd, IDD_QPRBOX ),
  228.                                   NULLHANDLE, 
  229.                                   &ti ) ;
  230.                     pqp->xfrac = (float)ti.rclTrack.xRight / (float)rectlBox.xRight ;
  231.                     pqp->yfrac = ((float)(ti.rclTrack.yTop-ti.rclTrack.yBottom) / (float)rectlBox.yTop) ;
  232.                     rectlBox.yTop = ti.rclTrack.yTop - ti.rclTrack.yBottom ;
  233.                     rectlBox.xRight = ti.rclTrack.xRight ;
  234.                     {
  235.                     double ratio = 1.560 ;
  236.                     double xs = rectlBox.xRight - rectlBox.xLeft ;
  237.                     double ys = rectlBox.yTop - rectlBox.yBottom ;
  238.                     if( ys > xs/ratio ) { /* reduce ys to fit */
  239.                         rectlBox.yTop = rectlBox.yBottom + (int)(xs/ratio) ; 
  240.                         }
  241.                     else if( ys < xs/ratio ) { /* reduce xs to fit */
  242.                         rectlBox.xRight = rectlBox.xLeft + (int)(ys*ratio) ;
  243.                         }
  244.                     }
  245.                     WinSetWindowPos( WinWindowFromID( hwnd, IDD_QPRFRAME ),
  246.                                      NULLHANDLE, 
  247.                                      swp.x, swp.y,//+(short)(swp.cy*(1.0-pqp->yfrac)),
  248.                                      (short)rectlBox.xRight, (short)rectlBox.yTop, SWP_SIZE|SWP_MOVE ) ;
  249.                     WinSetDlgItemFloat( hwnd, IDD_QPRXFRAC, pqp->xfrac ) ;
  250.                     WinSetDlgItemFloat( hwnd, IDD_QPRYFRAC, pqp->yfrac ) ;
  251.                     return 0L ;
  252.                     
  253.                 default:
  254.                     break ;
  255.                 }
  256.                 
  257.          default:
  258.             break ;
  259.             }
  260.         /* fall through to the default control processing */
  261.  
  262.     return WinDefDlgProc ( hwnd , usMsg , mp1 , mp2 ) ;
  263.     }
  264.  
  265. MRESULT EXPENTRY QPrintersDlgProc ( HWND hwnd, ULONG usMsg, MPARAM mp1, MPARAM mp2 )
  266. /*
  267. **  Query printers and allow selection
  268. */
  269.     {
  270.     static HWND hwndLB ;
  271.     static PPRQINFO3 pprq=NULL ;
  272.     static ULONG cPrinters ;
  273.     static USHORT usItem ;
  274.     static char *szPrinterName ;
  275.     int i, iSelect ;
  276.     char *psz ;
  277.  
  278.     switch ( usMsg ) {
  279.  
  280.         case WM_INITDLG :
  281.  
  282.             szPrinterName = (char*) PVOIDFROMMP( mp2 ) ;
  283.             iSelect = 0 ;
  284.             GetPrinters( &pprq, &cPrinters ) ;
  285.             hwndLB = WinWindowFromID( hwnd, IDD_QPRSLIST ) ;
  286.             for( i=0; i<cPrinters;i++ ) {
  287.                 psz = *pprq[i].pszComment ? pprq[i].pszComment :
  288.                                             pprq[i].pszName ;
  289.                 WinSendMsg( hwndLB,
  290.                             LM_INSERTITEM,
  291.                             (MPARAM)LIT_END,
  292.                             MPFROMP(psz) ) ;
  293.                 if( strcmp( pprq[i].pszName, szPrinterName ) == 0 )
  294.                     iSelect = i ;
  295.                 } 
  296.                 
  297.             WinSendMsg( hwndLB,
  298.                         LM_SELECTITEM,
  299.                         MPFROMSHORT( iSelect ),
  300.                         (MPARAM)TRUE ) ;
  301.        
  302.             break ;
  303.  
  304.         case WM_COMMAND :
  305.  
  306.             switch ( SHORT1FROMMP(mp1) ) {
  307.  
  308.                 case DID_OK:
  309.                     strcpy( szPrinterName, pprq[usItem].pszName ) ;
  310.                 case DID_CANCEL:
  311.                     free( pprq ) ;
  312.                     pprq = NULL;
  313.                     break ;
  314.                 }
  315.             break ;
  316.  
  317.         case WM_CONTROL:
  318.         
  319.             if( SHORT1FROMMP( mp1 ) == IDD_QPRSLIST ) {
  320.                 if( SHORT2FROMMP( mp1 ) == LN_SELECT  ) {
  321.                     usItem = (ULONG)WinSendMsg( hwndLB,
  322.                                 LM_QUERYSELECTION,
  323.                                 0L,
  324.                                 0L ) ;
  325.                     }
  326.                 }
  327.  
  328.         default:
  329.             break ;
  330.         }
  331.         /* fall through to the default control processing */
  332.     return WinDefDlgProc ( hwnd , usMsg , mp1 , mp2 ) ;
  333.     }
  334.     
  335. ULONG GetPrinters( PPRQINFO3 *pprq, ULONG *pcTot  )
  336. /*
  337. ** get a list of printers
  338. */
  339.     {
  340.     ULONG rc ;
  341.     ULONG cQueues, cbData ;
  342.     
  343.     rc = SplEnumQueue( NULL, 3, NULL, 0, &cQueues, pcTot, &cbData, NULL ) ;
  344.    
  345.     if( *pprq != NULL ) {
  346.         free( *pprq ) ;
  347.         *pprq = NULL ;
  348.         }
  349.     if( *pcTot == 0 ) { /* no printers */
  350.         return 0 ;
  351.         }
  352.     *pprq = malloc( cbData ) ;
  353.     rc = SplEnumQueue( NULL,
  354.                        3,
  355.                        *pprq,
  356.                        cbData,
  357.                        &cQueues,
  358.                        pcTot,
  359.                        &cbData,
  360.                        NULL ) ;
  361.     return *pcTot ;
  362.     }
  363.  
  364. MRESULT EXPENTRY PauseMsgDlgProc ( HWND hwnd, ULONG usMsg, MPARAM mp1, MPARAM mp2 )
  365. /*
  366. **  Pause message dialog box proc
  367. */
  368.     {
  369.     static PPAUSEDATA ppdata = NULL ;
  370.     char *pszText ;
  371.     switch ( usMsg ) {
  372.  
  373.         case WM_INITDLG :
  374.                 /* set the position so user can move out the way, and
  375.                    have it come back there next time */
  376.             ppdata = (PPAUSEDATA) PVOIDFROMMP( mp2 ) ;
  377.             if( ppdata->pswp != NULL ) 
  378.                 WinSetWindowPos( hwnd, HWND_TOP, ppdata->pswp->x, ppdata->pswp->y,
  379.                                  0, 0, SWP_MOVE ) ; 
  380.             pszText = ppdata->pszMessage ;
  381.             while(*pszText==' ') ++pszText ;
  382.             WinSetDlgItemText( hwnd, IDD_PAUSETEXT, pszText ) ;
  383.             break ;
  384.  
  385.         case WM_COMMAND :
  386.             switch ( SHORT1FROMMP(mp1) ) {
  387.                 case DID_OK:
  388.                 case DID_CANCEL:
  389.                     WinPostMsg( WinQueryWindow( hwnd, QW_OWNER ),
  390.                                 WM_PAUSEEND, 
  391.                                 SHORT1FROMMP(mp1)==DID_OK?(MPARAM)1L:0L, 
  392.                                 0L ) ;
  393.                     if( ppdata->pswp == NULL ) ppdata->pswp = (PSWP)malloc( sizeof(SWP) ) ;
  394.                     WinQueryWindowPos( hwnd, ppdata->pswp ) ;
  395.                     WinDismissDlg( hwnd, 0 ) ; 
  396.                     break ;
  397.                 case IDM_PRINT:
  398.                     WinPostMsg( WinQueryWindow( hwnd, QW_OWNER ),
  399.                                 WM_COMMAND, 
  400.                                 MPFROMSHORT(IDM_PRINT), 
  401.                                 0L ) ;
  402.                     return 0 ;
  403.                 default:
  404.                     break ;
  405.                 }
  406.         default:
  407.             break ;
  408.         }
  409.         /* fall through to the default control processing */
  410.     return WinDefDlgProc ( hwnd , usMsg , mp1 , mp2 ) ;
  411.     }
  412.     
  413. void WinSetDlgItemFloatF( HWND hwnd, USHORT usID, int nDec, float flValue )
  414. /*
  415. */
  416.     {
  417.     char achBuffer [ 34 ], *szCvt ; // default string field size ...
  418.     int  iDec ;
  419.     int  iSign ;
  420.     char fmt[32] ;
  421.     sprintf( fmt, "%%12.%df", nDec ) ;
  422.     sprintf( achBuffer, fmt, flValue ) ;
  423.     WinSetDlgItemText( hwnd, usID, achBuffer ) ;
  424.     }
  425.  
  426. void WinSetDlgItemFloat( HWND hwnd, USHORT usID, float flValue )
  427. /*
  428. */
  429.     {
  430.     char achBuffer [ 34 ] ; // default string field size ...
  431.     char fmt[10] ;
  432.     sprintf( fmt, "%%12.%df", 4 ) ;
  433.     sprintf( achBuffer, fmt, flValue ) ;
  434.     WinSetDlgItemText( hwnd, usID, achBuffer ) ;
  435.     WinSetDlgItemText( hwnd, usID, achBuffer ) ;
  436.     }
  437.  
  438. void WinQueryDlgItemFloat( HWND hwnd, USHORT usID, float *pflValue )
  439. /*
  440. */
  441.     {
  442.     char achBuffer [ 34 ] ; // default string field size ...
  443.     ULONG ulTemp ;
  444.     
  445.     WinQueryDlgItemText( hwnd, usID, 34, achBuffer ) ;
  446.     *pflValue = (float) atof( achBuffer ) ;
  447.     }
  448.  
  449.